home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE URLs 1.xpl < prev    next >
Text File  |  2004-02-07  |  3KB  |  87 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="3"
  3. "COUNT"="4"
  4. "UIPATH"="Internet\Internet Explorer\URL Handling"
  5. "NAME"="Default URLs"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.00"
  8. "TEXT 1"="Search Page"
  9. "TEXT 2"="Toolbar Search"
  10. "TEXT 3"="Radio Station"
  11. "TEXT 4"="Online Support"
  12. "DATA 1"="Web documents|*.html;*.htm;*.php;*.php3;*.cgi;*.pl;*.asp;*.jsp;*.mht|All Files (*.*)|*.*"
  13. "DATA 2"="Web documents|*.html;*.htm;*.php;*.php3;*.cgi;*.pl;*.asp;*.jsp;*.mht|All Files (*.*)|*.*"
  14. "DATA 3"="Web documents|*.html;*.htm;*.php;*.php3;*.cgi;*.pl;*.asp;*.jsp;*.mht|All Files (*.*)|*.*"
  15. "DATA 4"="Web documents|*.html;*.htm;*.php;*.php3;*.cgi;*.pl;*.asp;*.jsp;*.mht|All Files (*.*)|*.*"
  16. "DATA 5"="Web documents|*.html;*.htm;*.php;*.php3;*.cgi;*.pl;*.asp;*.jsp;*.mht|All Files (*.*)|*.*"
  17. "DESCRIPTION 1"="With the URL for "Page" you can change the URL that will be opened if you select "Start"|"Search"|"The web" or click "Go to"|"Seach page" inside Internet Explorer (default is http://www.microsoft.com/isapi/redir.dll?prd=ie&ar=iesearch)."
  18. "DESCRIPTION 2"="With the URL for "Toolbar" you can change the URL that will be opened if you click the Search Button on the toolbar of Internet Explorer."
  19. "DESCRIPTION 3"="With the URL for "Radio Station" you can change the URL that will be displayed if you click the "Radio station Guide" button on the "Radio" toolbar (default is http://windowsmedia.com/mediaguide/default.asp). NOTE: Internet Explorer 5.x only."
  20. "DESCRIPTION 4"="With the URL for "Online Support" you can change the page that will be displayed when you click on Help > Online Support in Internet Explorer."
  21. "DESCRIPTION 5"="For all entries, you can either select a local HTML file or enter an URL directly, like http://www.hotbot.com."
  22. "DESCRIPTION 6"="NOTE: To have the default URLs restore, clear the fields."
  23. "AUTHOR"="Xteq Systems"
  24. "CONTACTURL"="http://www.xteq.com"
  25. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  26. "COMMENT 1"=" "
  27. "COMMENT 2"="Thanks to Roxarius [mailto:rosarius@tin.it] for the HKCU bug notice!"
  28.  
  29. sP1="HKCU\Software\Microsoft\Internet Explorer\Main\"
  30. sP2="HKCU\Software\Microsoft\Internet Explorer\Help_Menu_URLs\Online_Support"
  31. sP3="HKLM\SOFTWARE\Policies\Microsoft\WindowsMediaPlayer\DefaultURLFindNewStations" 'string - "http://webevents.microsoft.com/radiobar.asp"
  32. sP4="HKLM\Software\Microsoft\Internet Explorer\Main\Default_Page_URL"
  33. sV1="Search Page"
  34. sV2="Search Bar"
  35.  
  36. Sub Plugin_Initialize 
  37.  if RegPathExists("HKCU\Software\Microsoft\Internet Explorer") then
  38.   s=RegReadValue(sP1 & sV1)
  39.   Call SetUIElement(1,s)
  40.  
  41.   s=RegReadValue(sP1 & sV2)
  42.   Call SetUIElement(2,s)
  43.  
  44.   s=RegReadValue(sP3)
  45.   Call SetUIElement(3,s)
  46.  
  47.   s=RegReadValue(sP2)
  48.   Call SetUIElement(4,s)
  49.  
  50.   's=RegReadValue(sP4)
  51.   'Call SetUIElement(5,s)
  52.  else
  53.   Disable
  54.  end if
  55. End Sub
  56.  
  57. Sub Plugin_CheckData(ElementIndex)
  58. End Sub
  59.  
  60. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  61.  Call DoWork(1,sP1 & sV1)
  62.  Call DoWork(2,sP1 & sV2)
  63.  Call DoWork(3,sP3)
  64.  Call DoWork(4,sP2)
  65.  'Call DoWork(5,sP4)
  66.  
  67.  Call Logoff()
  68. End Sub
  69.  
  70. Sub DoWork(NUM,REG)
  71.  s=GetUIElement(NUM)
  72.  if len(s)>0 then
  73.   Call RegWriteValue(REG,s,1)
  74.  else
  75.   s=RegReadValue(REG)
  76.   if IsEmpty(s)=false then
  77.    Call RegDeleteValue(REG)
  78.   end if
  79.  end if
  80. End Sub
  81.  
  82. Sub Plugin_Terminate 
  83. End Sub
  84.  
  85.  
  86.  
  87.